_________________A                                                                 U
        
  T O D A Y   I S  
                   
_____
|_____|
_____
|_____|
11:59 PM
Dictionary Options
!(U)pdate   CHANGE data dictionary
(S)how     SHOW data dictionary
 (P)rint    PRINT data dictionary
Esc        EXIT data dictionary
Dictionary Commands
to KEEP key, hit 'ENTER'
(to ADD key, enter new KEYNAME on KEYNAME
#to CHANGE key, enter '=' on KEYNAME
to DELETE key, enter slash '/'
to UPDATE, enter 'RUN' or 'END'
'to QUIT, hit Esc  to REENTER, enter '\'
             
pdate
+Key                 Pos Len Typ Dec Col Row
                    
Hit Any Key To Exit
$Hit ENTER To Continue Or ESC To Exit
+Key                 Pos Len Typ Dec Col Row
!Hit ENTER To Print Or ESC To Exit
!                                 
+Key                 Pos Len Typ Dec Col Row
                    
Hit Any Key To Exit
+Key                 Pos Len Typ Dec Col Row
             
1       Key              Pos   Len Typ Dec Col Row
XXX           
*                                          
             
               
Imbedded Blanks
             
LAST(
PARSE(
CONCAT(
STRING(
@@@@@
@@@@@@
@@@@@@@
@@@@@@@@
	@@@@@@@@@
ENDIF
BLANK
ABORT
WRITE
LCASE
FCASE
UCASE
SYSDATE
SYSDMIL
SYSTIME
RECORD LINKED
RECORD_STATUS
             
Reserved Name
Rec           
Key           
@             
@@            
@@@           
@@@@          
@@@@@         
@@@@@@        
@@@@@@@       
@@@@@@@@      
@@@@@@@@@     
Record Linked 
Record_Status 
             
Invalid DEL
*                                          
*                                          
XXX           
XXX           
               
                  
                  
             
Non-Numeric
Rec           
Record_Status 
             
POS Denied
             
	Pos > 988
Rec           
Record_Status 
             
LEN denied
             
Length?
@Include
             
Length Not 14
             
Pos+Len > 989
             
             
Typ =C/N/$
Rec           
Record_Status 
             
TYP denied
@Include
             
Type Not C
             
Num > 11
             
Rec           
Record_Status 
             
DEC denied
             
Dec = blanks
	Dec = 0-9
Dec = 2
             
Dec <> 2
             
Col > Error
             
Col > Error
             
             
Row Not 2-22
             
             
-yXXXX
	         
At Limit
XXX           
)                                         
Record_Status 
                  
                  
Record_Linked 
                  
                  
@             
                  
                  
@@            
                  
                  
@@@           
                  
                  
@@@@          
                  
                  
@@@@@         
                  
                  
@@@@@@        
                  
                  
@@@@@@@       
                  
                  
@@@@@@@@      
                  
                  
@@@@@@@@@     
                  
                  
XXX           
                  
                  
Replace Dictionary 
Y/N? 
            
Key            Pos Len Typ Dec
                              
XXX           
mv!                                 
 Created
u	 Replaced
t!                                 
 Unchanged
                    
Hit Any Key To Exit
 Unchanged
                    
Hit Any Key To Exit
A2Zbase.com